Virtual Sex With Nikki Tyler/Virtual Sex with Nikki Tyler.iso/pc/quit.dxr/00001_--• movie scripts, setup-related.ls

Text File | 1999-06-26 | 655 b | 32 lines

global gOldColorDepth, gOldSoundLevel

on startMovie
  the trace = 0
  setProp(1, 48, "puppet", 0)
  setProp(1, 48, "visibility", 1)
  unLoad()
  unloadMember()
end

on stopMovie
  if not voidp(gOldColorDepth) then
    set the colorDepth to gOldColorDepth
  end if
  if not voidp(gOldSoundLevel) then
    set the soundLevel to gOldSoundLevel
  end if
end

on setProp startSprite, endSprite, whichProp, whichValue
  repeat with x = startSprite to endSprite
    do("set the " & whichProp & " of sprite x=whichValue")
  end repeat
end

on delayFor howLong
  howLong = the timer + howLong
  repeat while the timer < howLong
    updateStage()
  end repeat
end